EEE 
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Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 
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LLLLLLLLLLLLLLL | 
| 
| 
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LL III111 BBBBBBBB TTTTTTTTTT RRRRRRRR AAAAAA AAAAAA 332228 EEEEEEEEEE 

LL III BBBBBBBB TTTTTTTTTT RRRRRRRR AAAAAA AAAAAA EEEEEEEEEE 

LL Il BB 8B TT RR RR AA AA AA AA 22 EE 

LL I] BB BB TT RR RR AA AA AA AA EE 

LL II BB BB TT RR RR AA AA AA EE 

LL II 88 BB TT RR RR AA AA AA AA 2 €€E 

LL I] BRRARRAB TT RRRRRRRR AA AA AA AA 22 EEEEEEEE 

LL II B TT RRRRRRRR AA AA AA AA 22 EEEEEEEE 

LL II foe BR TT RR RR AAAAAAAAAA §=AAAAAAAAAA 22 EE 

LL Il EB BB TT RR RR AAAAAAAAAA § AAAAAAAAAA 22 FE 

LL II 3B BB TT RR RR AA AA AA AA 22 EE — 

LL I] Be TT RR RR AA AA AA AA 38 EE i Sieh 

LLLLLLLLLL III BBBBBBBB TT RR RR AA AA AA AA 2222222222 EEEEEEEEEE a 

LLLLLLLLLL eeeeel TT RR RR AA AA AA AA 2222222222 EEEEEEEEEE i 2 

LL III SSSSSSSS 

LL eeeeel SSSSSSSS 

LL II Ss 

LL II Ss 

LL I] Ss 

LL I] ss 

LL II SSSSSS 

LL II SSSSSS 

LL II Ss 

LL II ss 

LL I] SS 

LL II ss 

LLLLLLLLLL III SSSSSSSS 

LLLLLLLLLL II111 SSSSSSSS 
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DECLARATIONS 
LIBSTRA_ASC_EBC = Translate ASCII to EBCDIC 
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LIBSTRA_ASC_EBC - Translate ASCII string to EBCDIC strin 16-SEP-1984 00:21:01 VAX/VMS Macro V04- Pa 1 
1-007 . or See abe FFE FT 8 ETEK TS eat fete mar: 8 cl) 
0 1 -TITLE LIBSTRA_ASC_EBC = Translate ASCII string to EBCDIC strin 
i § IDENT athe 3; File: LIBTRAAZE.MAR Edit: Eee 07 9 
099 ¢ S eenecerenereeqcercereenedeeeeqneeneceneneensenceonnereesqoseeseeqqeeenserees 
7* ® 
000 : 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
000 8 ;* DIGITAL EQUIPMENT _GORPORATION, MAYNARD, MASSACHUSETTS. * 
4 1 es ALL RIGHTS RESERVE * 
e a 
0000 11 ;* THIS SOFTWARE is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
8088 \¢ 7* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
000 15 ;* INCLUSION OF THE ABOVE soPrn oH NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 14 :* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
4 16 ee TRANSFERRED. * 
° ® 
0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND HOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 sy : CORPORATION. * 
4 ® 
0000 $6 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 24 ;* « 
0000 25 3* * 
it $8 : SRR A AEA REE EAAAEAEAEEAAARAAE AAA AEA AREA AAARAATA AEA ARETE AEE 
0000 «5B 
0000 $9 3% 
0000 0; FACILITY: General Utility Library 
0000 31; 
0000 38 3; ABSTRACT: 
0000 ae 3 
4 $e 3 Translates an ASCII string to an EBCDIC string 
0000 36 : ENVIRONMENT: User Mode, AST Reentrant 
$83 
9000 33 : AUTHOR: R. Reichert, CREATION DATE: 03-DEC-1979 
0000 41 ; MODIFIED BY: 
0000 g 3 
0000 43 ; REVISION HISTORY: 
6088 44; 
000 45 ; 1-001 - Original. RKR 03-DEC-79 
8000 48 : 1-002 - Change _ EBCDIC string descriptor doucmentation to ‘'bu.dx"’ 
0000 48 : 1-003 - Return tts codes instead of STR$. JBS 22-JAN-1980 
0000 49 ; 1-004 - Refetch Gest ination. s £309 sensty and address after calling 
44 0; STRSGET1_DX. SPR -June-1981 
00 1; 1-005 - | to “Cieeh is “additional pee of ogring descriptors 
4 ¢ : by rag hy BS Lis ANALYZE_SDESC_R3 to extract length and address 
: at 
$008 : 3 Redirect re to *STRSGET1 _DX to LIBSSGET1_DD and remove use of 
0000 ; : RKR 26-MAY-1981 
00 ; 1-006 - Add special-case code to process string descriptors that 


PINT eRESCIBT RANGE mars? 22° (4) 


si al te 7-0CT-1981. 
T. 
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D 


38 : ; angi? Like fixed string asec ies 
; 1-007 = Redirect 43°, I rer Liga S 
LIBSANALYZE_SDES NOV- 


" 
60 ; ESC_R2. RKR Ben oF 


LIBSTRA_ASC_EBC 
1-007 


cr 
m 
on 
ae) 
ow 
zs 
>w 
a4 
on 
ze 


SNIP AA AAA 


FW CO OONAUISE WP 


“IN 
wn 


SOC oQoQoQooQoQooQoQoQoQoooooooooooo 
AINE WIN HO OONAUE WN "9 OONOAUE WN O OONO 
ce e@e 


CDOoOOCCOSCoOSoOOCOOCoCoOOoSooOSooSoS 
GOOCOOCOCOCOOCOSOOSSSOSSSoooocooooooooooooooooooooooo ea 


SoOooooooooo°o°oo 


oOoOooooooo 
Oooooocooceao 


So 

oS 

SoS 

oS 
Soooooooo 


oooooooo 
BDOODOOOSO000 0000 0000090000900 0900 00 00 C008 INI 


SoOoooQooosSoooooooooeo 


ee 


~SBTTL 


» DSABL 


~EXTRN 


~EXTRN 


~EXTRN 


-EXTRN 


SSSDEF 


SDSCDEF 
: EQUATED SYMBOLS: 


ESC_CHAR 
SOURCE _CODE 
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~SEP=1984 
DECLARATIONS 


; INCLUDE FILES: NONE 


3 EXTERNAL DECLARATIONS: 


GBL 

LIBSSGET1_DD 
LIBSAB_ASC_EBC 
LIBSANALYZE_SDESC_R2 
LIBS_INVCHA 


LIBS_INVARG 


= *X1A 


: PSECT DECLARATIONS: 


a MS hae S 


99FF1i80 OTENTS eaeSe Behance mars1 22° (3) 


; Prevent ndest ere’ 
; symbols from bei ng 
3; automatically global. 


; dynamic string allocator 

; ASCII to EBCDIC translation 

; table 

; Extract lenght and address of 
; Ist data byte from descriptor 


; Return code “invalid 
; character’ 


; Return code "invalid 
; argument 


Definition of SS$_ symbols 
Descriptor components 


C Character ‘‘SuB’’ 
Character ‘'SuB"’ 


»PSECT * weet” bi USR, CON, nee LCL, SHR, 


RD, NOWRT, 


Ps 
“er 
oe 


IAPOROPUROPONOPONUNON) 2 ODD 


> 
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cme 
boo 
o- 
fn 
oer) 
zs 


~-SBTTL LIBSTRA_ASC_EBC = Translate ASCII to EBCDIC 
FUNCTIONAL DESCRIPTION: 


Translates an ASCII string to a EBCDIC eer nes 

If destination string has fixed string semantics, its length 
must match the henge of the input string (no filling is done). 
If destination string is var ing. its length is forced (if 
possible) to be the length of the 

(MAXSTRLEN too small) LIBS_INVARG is returned. 


CALLING SEQUENCE: 
status.wlc.v = LIBSTRA_ASC_EBC ( SRC_STR.rt.dx, DST_STR.wbu.dx) 


source string. If it can't 


SOOOOooCooOOoOoooooo Y,YY 


Oooo: 


C 
EBC 
103 + 
? ; 
1 : ; 
114 ; 
He 
19 ; 
1 : : 
119 ; 
120 ; 
13 
9909 ; INPUT PARAMETERS: 
44h ! ; ; SRC_STR.rt.dx address of source string descriptor (ASCII) 
0000 : , ; DST_STR.wbu.dx address of destination string descriptor (EBCDIC) 
0000 129; 
0000 130 ; IMPLICIT INPUTS: 
0000 13) ; 
44 136 : The ASCII to EBCDIC translation table at LIBSAB_ASC_ESC 
0000 134 : OUTPUT PARAMETERS: 
44 135 ; 
0000 136 3 NONE 
0000 137; 
0000 138 3 IMPLICIT OUTPUTS: 
0000 139; 
0000 140; NONE 
0000 141 ; 
0000 176 3; COMPLETION CODES: 
0000 143; 
8000 Pe: : SS$_NORMAL - Routine successfuily completed. 
0000 146: LIBS_INVCHA - One or more occurences of an untranslatable 
0000 147; character has been detected in the course 
4 123 : of translation. 
0000 150; LIB$_INVARG - If destination string is fixed string and 
O88 151 ; its length is not the same as the source 
0 136 3 Length. 
00 153; 
00 154 ; SIDE EFFECTS: 
44 155 ; 
00 138 ; NONE 
ae 
000 135 ; 
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IC strin 16-SEP-1984 00:21:01 VAX/VMS Macro v04-0 

1 to EBC 16-SEP-1984 90:94:95 CTBRTL « SRETCIBYRAACE MAR: 1 
off AP of input arguments: 

4 

8 


~-ENTRY LIBSTRA_ASC_EBC, “M<IV, R2, R3, R4, R5, R6, R7> 


: Extract the Lengths and addresses we will need from the source and 
: destination descriptors. 


SSSSSssssssss Pu 
OOCGCGWOOOooO ‘, S 
AMMNMINNMOOCOSCOOe 


—_ 
ad 
oe 


™ 
bod 


COOCOCOOCOOOOCOOOOOOOCOOOCOOOoOCOoOOo 


MMT 3 = 23 3 32 OO 


NS NR OO NS eNO" 
w 
ww 


oo —-O0F-—0o 9CO —-U>,r—o 


SRC_STR(AP), RO ; Address of src descriptor 
DSCSB_CLASS(RO), #DSCSK_CLASS_D ; read like fixed ? 


1$ 3; no 

@SRC_STR(AP), R6 ; length=>R6, address->R7 
2s 3 join common flow 
G6* 
R1 


LIBSANALYZE_SDESC_R2 ; Extract: Length->R1, addr->R2 
» R6 3 length=>R6, address->R7 


DST_STR(AP), RO ; Address of dst descriptor 
SCSB_CLASS(RO), #DSCSK_CLASS_D ; read like fixed ? 


3; no 
@DST_STR(AP), R4 3 length=>R4, address->R5 
4$ 3; join common flow 


G*LIBSANALYZE_SDESC_R2 ; Extract: Length->R1, addr->R2 
R1, R4 ; length=>R4, address->R5 


f destination is a dynamic string, reallocate a dynamic string which 
s the same length as the input string. 


SOOOCCSCCCOSCOSoOoOoOoOooooSoo 


OoOoooooceo 
Sete Ge te 


ND ee ed dd dd dd ed dd dd dd dd Mm 
= 
id 
ee 


MBODODOOOCOO0O0 OOOO OOO 0090909 09 09 69 09090909 SINSI NS NINI NINN NOOOOOOAOAA 


—-OWEO "OOoW-o°o 
=—OOr0 W*"IOon—oO 


SLOLOCSSSOSSOS 


DP POL MM NLS MODWLLLLL LS ODD OVW NDI WD ONNVOO PS 


dest pength = source length 
new destination address 
join common flow 


DST_STR(AP), R2 ; address of dst descriptor 
DSCSB_CLASS(R2), #DSCSK_CLASS_D ; dynamic string dest ? 
5$ 3; not Cynan c 
R6, -(SP ; length of source 
DST_STR(AP) ; caller's dest desc addr 
4(SP) ; address of Length of source 
#2, G*LIBSSGET1_DD ; allocate a dynamic string 

3; equal in len to source 
#4, SP 3 restore stack 


R6, RO 
DSCSA_POINTER(R2), R5 
10$ 


Z® 
: If destination is a varying string, force its CURLEN to the MIN ( 
MAXSTRLEN, Length of source). If we can't, return LIBS_INVARG. 


PDD DAS & & & EAA AIA on 


SOSOCSSOOSOSOOOOOSOoOSOOOoSOOS 
NOUS AR @§OODNAUE WIN  O ODNAUE WIN OS OONAU EWN — OOONAUES WIN O OONOULS WR oO 


SOOoOoOoooooooo 


So 


oa 
Od ed ad ed ed 


Ow--@—-0 
Om" —ft\— 
Ouwmom>>>>y> 


DSCSB_CLASS(R2), GOOLE LASS VS i varying string dest ? 
: v 


; aryin 
SCSW_MAXSTRLEN(R2), R6 ; RAXSTALEN 7 Length of source 
$ 3; won't fit, exit with error 
: Set dest (en to source Length 


R6, R4 
R4, @DSCSA_POINTER(R2) ; Set CURLEN to new Length 
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1-007 LIBSTRA_ASC_EBC - transtat SCII to EBC raat 7 90:94 £84 YETGRTL. SRETCIBTRAASE MAR; 1 . (4) =( 
OD 11 of 18 * BRB 10$ 3; join common flow 
oe y ; Otherwise, we have a destination string with fixed-length semantics. 
t ; Its length must match the length of the input string, 
43 § ; else LIBS_INVARG is returned. 
6 _< 
6E 4 és: 
54 (56 8 6 5 CMPW RG, RG ; source len = dest len ? oc 
4 § BEQL 10 3: ok if lengths match 
50 00000000°8F 00 0073 9$: MOVL #LIBS_INVARG, RO ; return ‘invalid argument’’ 
04 OO7A 8 RET 
0076 8 
tA : ; Set up registers for the MOVTUC and MOVTC to follow 
078 
50 56 80 0076 4 MOVW RG. RO 3 get source length in RO 
> 2» Opes 2 5 MOVL R7, RI ; address of caller's source 
0081 7 ; registers at this point... 
0081 8 ; 
0081 y 3 RO Length of source string 
0081 40 ; R1 address of source sir ine 
0081 41 ; R address of destination descriptor 
0081 tg : unknown 
0081 43 ; RG length of destination string (must be equal to R6) 
0081 ste ; R5 address of destination g toe 
0081 45 ; R6 length of source string (must be caval to R4) 
44 9 s¢$ 3 Re address of source string (same as R1) 


L IBSTRA_ASC EBC 


os 
je 


percep te ce 


Col 
Trans ASCII 


>o 
“ee 
oe 


EaC 'S-SEP-1986 11:11:50 ELIBRTL.SRCILIBTRAAZE.maR:1 29° (5) 


+ 

; Actual translation Loop. 

3; Repeated until we translate all error_free, or fall through with 
;_an error and perform one final MOVTC fo complete translation 


at 
Ww 
sad 
oe 


MOVTUC RO, (R1), MESC_CHAR, G*LIBSAB_ASC_EBC, R4, (R5) 


State of regs after a MOVTUC instr. 
RO = number of bytes remaining in 
source string (including the 
byte which caused the escape. 
Is zero only if the entire source 
string was translated and moved 
without escape. 

address of the byte which 
resulted in destination string 
exhaustion or escape. If no 
exhaustion or escape, then 
address of one byte beyond the 
source string. 


00000000'GF 5F $ 


R1 


POV SAAMMAAIAOOOAAAOOOOOOAAOAOOOAAAAOAGOOOO Pe SS SS 
FAEAAAACCOCAOOCUIUM KNNUIMUIUUNS Ww 


DOONAN WI § OS OO NAU EWN SO ODNAULS WN OOONAULSWN—OOCON AUS U—0O”O OO 


address of the table 

number of bytes remaining in the 

destinatin string. 

address of the byte in the 

destination string which would 

have received the translated byte 

that caused the escape or would 

have received a translated byte 

if the source string were not 

exhausted. If not exhaustion 

or escape, then address of one 

ore beyond the destination 
string. 

BvC GOOD_COMPL 3 teratnated by end of string 


MOVB  W#ESC_CHAR, (R5)+ 
DECL RO 
DECL = R4 


CMPB (R1 
BEQL 15$ 


R4 
R5 


Tere Te ere re rere rere rere rerererererererererererere 


85 3F 90 store esc_char in output 
bumping R5 to next byte pos. 
adjust input count for one 
done by hand 

adjust output count for one 
done by hand 

was the input an escape char 
yes -- treat as success and 
and continue 


)+, #SOURCE_CODE 


; NOTE: Lengths are guaranteed 


: 

2 
0 
mH 
o3h > an untranslatable input char has been detected. Translate rest of 
BoA 3; string and exit with an error status of LIBS_INVCHA 
9A 

1 MOVTC RO, (R1), O(SP), G*LIBSAB_ASC_EBC, R4, (RS) 
: 3; to be equal, so fill_char is 
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4 887 ie LIBSTRA_ASC_EBC = iranstate Age dt to EBC pate 7 90:44:93 CTBRTL. SRETCIOTRAACE MARS 1 . &) 
A 4 3 not meegee. 
A 5 3 prate of regs after a MOVTC instr. 
4 § ; RO = — of prenstated oyyes 
A : remaining in source string. b 
A 8 3 $ non zero only if source string { 
A : s jonger than destination Dd 
A 1 : string. E 
A 1 ; R1 = address of one byte beyond the GO 
A 1 : last byte in source string that Lil 
. 13 3 . was translated. Li 
3 = 
oA 13 : > = address of the translation table Lit 
A 5 ; RS = address of one byte beyond the Lit 
BAe 18 § destination string. rt 
50 00000000'8F 00 boas 0 MOVL #LIBS_INVCHA, RO ; return “invalid char’’ code SS! 
04 OOAC 1 RET 
QOAD § 
QOAD GOOD_COMPL: 
50 01 00 OOAD 4 MOVL #SS$_NORMAL, RO 3 return success 
04 0080 5 RET 
0081 6 
0081 327 ~ END 


a ~-—y 
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Symbol fable ° 66-SEP-1984 90:44:94 ARTE. SREICIOTRARSE MAR: 1 . (5) 
DSCSA_POINTER = 4 
DSC$B_CLAS = 3 
DSCSK_CLASS_D = 
DSCSK_CLASS_VS = 
DSCSW-MAXSTRLEN = 
PS -ENAR ; : 
= 
GOO6_COMPL 8 AD R 0¢ 
LIBSAB_ASC_EBC aenereee =X 
LIBSANALYZE_SDESC_R2 tereeeee =X 00 
LIBSSGET1_DB eeneneee =X = 0 
LIBSTRA_ASC_EBC 00000000 RG 8 
LIBS_INVARG eeneeeee =X 
LIBS_INVCHA reereeee x 00 
SOURTE_CODE = QOOOO0IA 
RC_ST = 00000004 
SS$_NORMAL = 00000001 
¢ emo aman serene one + 
H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
« OS « 00000000 0.) 00 ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 9-3 01 ¢ #1.) \NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
_LIBSCODE 00000081 ¢ 177.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
eee wee eee ee m ew ee eee me ewe $ 
; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization eo 00: 00:00.05 00:00:01.7 
Comaand processing 105 ib So4 2 00:00:01.7 
Pass 218 00:00:03.4 00:00:14.6 
Symbol table sort 0 00:00:00.51 00:00:03.59 
Pass 2 70 88:8 :00.8 Bp 388 383 +O 
Symbol table output 4 0:00:00.0 00:00:00.0 
Psect synopsis output 3 00:00:00.0 00:00:00.02 
Cross-reference output 00:00:00.C0 00:00:00.00 
Assembler run totals 430 00:00:05.15 00:00:24.74 


The working set Limit was 1200 pages. 

28450 bytes (56 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 549 non-local and 9 local symbols. 
7 source Lines were read in Pass 1, prodyc ne 13 object records in Pass 2 

9 pages of virtual memory were used to define & mac 


ros. 


LjesTeA, A_ASC_EBC - Translate ASCII string to eBcoie rte Ton $66 =138% 99: ¢1: gh yAreyes 


v04-0 Page 1 on 
Macrd Run Statistics LIBRTL.S saese JL18 A RARSE.MAR: 1 ad (8, 


perso enmmnsr eas ana er ean enecancen} 


! Macro Library statistics ! 


tumor twane anon nn een enone ene $+ 


Macro Library name Macros defined 


-$255$0UA28 : TSYSLIBISTARLET.MLB; 2 5 

604 GETS were required to define 5 macros. 

There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESS10N/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBTRAA2ZE/OBJ=OBUJ$:LIBTRAAZE MSRC$:LIBTRAAZE/UPDATE=(ENH$:LIBTRAAZE) 


2 -BTI3A-SE . EQUIPMENT CORPORATION 


VAX/VMS V4.0 ENTIAL AND PROPRIETARY 


